www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminHTML\D_admin_kaozhan.asp
<%
'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************
%>
<LINK href="../css.css" type=text/css rel=stylesheet>
<%
dir_set="../../"
%>
<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->
<!--#include file=../inc/checkadmin2.asp-->
<!--#include file=../../inc/ajaxLIB.asp-->
<!--#include file=../../inc/ND_class_function.asp-->
<!--#include file="makehtm_inc/D_kaozhan_class.asp"-->
<%
AJAXshowLoader()
%>
<style type="text/css">
<!--
.STYLE3 {
color: #FFFFFF;
font-weight: bold;
}
.STYLE4 {
color: #0000FF;
font-weight: bold;
}
-->
</style>
<div id="divProcessing" style="width:200px;height:30px;position:absolute;display:none">
<table border="0" cellpadding="0" cellspacing="1" bgcolor="#000000" width="100%" height="100%"><tr><td bgcolor=#0650D2><marquee align="middle" behavior="alternate" scrollamount="5" style="font-size:9pt"><font color=#FFFFFF>...正在保存远程图片...请等待...</font></marquee></td></tr></table>
</div>
<br />
<div id="l_list" style="filter:blendTrans(duration=1); width:774px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 121px;width:730px">
<%
if qx_if_max=0 then
response.redirect "../D_suodinguser.asp"
end if
%>
<script src="../../ND_editor/FCKeditor2_5/FCKeditor.js"></script>
<script type="text/javascript">
<!--
function remoteUpload(o) {
try{
var strText = GetContentHTML() ;
var divProcessing=document.getElementById("divProcessing");
var objField = document.getElementsByName("content_UploadText")[0];
objField.value = strText ;
if (o) {
divProcessing.style.top = 800 ;
divProcessing.style.left = 200 ;
divProcessing.style.display = "";
document.remoteuploadb.submit();
}else{
divProcessing.style.display = "none";
}
}
catch(e){}
}
function remoteUploadok() {
try{
divProcessing.style.display = "none";
}
catch(e){}
}
function GetContentHTML(){
var strHTML ;
try{
var oEditor = FCKeditorAPI.GetInstance('Content') ;
strHTML = oEditor.GetXHTML()
}
catch(e){
strHTML = '';
}
return strHTML
}
var sLinkOriginalFileName = "originalfilename" ;
var sLinkSaveFileName = "savefilename" ;
var sLinkSavePathFileName = "UploadFileList" ;
function addUploadFile(originalFileName, saveFileName, savePathFileName){
doInterfaceUpload(sLinkOriginalFileName, originalFileName);
doInterfaceUpload(sLinkSaveFileName, saveFileName);
doInterfaceUpload(sLinkSavePathFileName, savePathFileName);
}
function doInterfaceUpload(strLinkName, strValue){
if (strValue=="") return;
if (strLinkName){
var objLinkUpload = document.getElementsByName(strLinkName)[0];
if (objLinkUpload){
if (objLinkUpload.value!=""){
objLinkUpload.value = objLinkUpload.value + "|";
}
objLinkUpload.value = objLinkUpload.value + strValue;
objLinkUpload.fireEvent("onchange");
}
}
}
function doChange(objText, objDrop){
if (!objDrop) return;
//if(document.myform.BriefTopic.selectedIndex<2){
// document.myform.BriefTopic.selectedIndex+=1;
//}
var str = objText.value;
var arr = str.split("|");
var nIndex = objDrop.selectedIndex;
objDrop.length=1;
for (var i=0; i<arr.length; i++){
objDrop.options[objDrop.length] = new Option(arr[i], arr[i]);
}
objDrop.selectedIndex = nIndex;
}
//-->
</script>
<%
biao="[ND_kz_items]"
%>
<br />
<span class="STYLE4">必须在根目录下运行,推荐你先拷小的站试下，不要马上拷大的站;一键自动拷其他站的所有页(拷到前台某目录),或一键备份某站整站<strong> ,注意:只会拷同域名下的页面;可以 添加拷站过滤器 来把拷来的页面里的某些内容自动替换为你指定的内容，比如自动替换网页标题等;另外，拷完后，必须以http://127.0.0.1/tthtml/web1/c591b050fa87bd7e6bfa57dcc591b050fa87bd7e6bfa57dc.htm这样的/tthtml/为根路径的方式来打开拷来的页面才能正常看到效果，否则不在根目录下的话可能出现拷来的页面里图片显示不出或链接404错误</strong></span><br />
<br />
<script language="javascript">
function delact(id){
if (confirm("确认删除?")==1){
self.location="D_del_kaozhan.asp?id="+id;
}
}
</script>
<script language="javascript">
function ks(urll){
if (confirm("确认要开始拷站?")==1){
self.location=urll;
}
}
</script>
<table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="6%" height="27" align="center" class="adminth"><span class="STYLE3">id</span></td>
<td width="12%" align="center" class="adminth"><span class="STYLE3">项目名称</span></td>
<td width="23%" align="center" class="adminth"><span class="STYLE3">目标拷站网址</span></td>
<td width="23%" align="center" class="adminth"><span class="STYLE3">拷站保存目录</span></td>
<td width="11%" align="center" class="adminth"><span class="STYLE3">编码设置</span></td>
<td width="25%" align="center" class="adminth"><span class="STYLE3">操作</span></td>
</tr>
<%
CurrentPage=replacebadchar(request("page"))
if CurrentPage="" then
CurrentPage=1
else if not IsNumeric(CurrentPage) then
CurrentPage=1
else if int(CurrentPage)<=0 then
CurrentPage=1
else
CurrentPage=replaceBadchar(request("page"))
end if
end if
end if
maxperpage=15
aryxx =split(Request.ServerVariables("SCRIPT_NAME"),"/")
fileNamexx = aryxx(ubound(aryxx))
strFileName=fileNamexx&"?classid="&request("classid")&"&isshenhed="&request("isshenhed")&"&iszhuanti="&request("iszhuanti")&"&keyword="&trim(request("keyword"))&"&sys_content_type="&sys_content_type&"&qrr="&request("qrr")
set Rs=server.CreateObject("adodb.recordset")
sql="select * from "&biao&""
Rs.open sql,conn,1,1
if not Rs.eof then
Rs.pagesize=MaxPerpage
totalnumber=Rs.recordcount
if totalnumber mod maxperpage=0 then
MaxPage= totalnumber \ MaxPerpage
else
MaxPage= totalnumber \ MaxPerpage+1
end if
if int(CurrentPage)>int(MaxPage) then
CurrentPage=MaxPage
else
CurrentPage=CurrentPage
end if
Rs.absolutepage=CurrentPage
for ni=1 to MaxPerpage
if Rs.eof then exit for
%>
<tr bgcolor="#EDF8FE">
<td width="6%" height="27" align="center"><%=rs("id")%></td>
<td width="12%" align="center"><%=rs("xiangmu_name")%></td>
<td width="23%" align="center" style="word-break:break-all"><%=rs("kaozhan_url")%></td>
<td width="23%" align="center">/<%=ttahtml%>/<%=rs("to_forder")%></td>
<td width="11%" align="center">
<%if cstr(rs("bianma"))="0" then response.write "自动获取(不保证可靠)"%>
<%if cstr(rs("bianma"))="1" then response.write "gb2312"%>
<%if cstr(rs("bianma"))="2" then response.write "utf-8"%>
</td>
<td width="25%" align="center">
<%
muluz=rs("to_forder")
muluz=replace(muluz,"\","/")
if right(muluz,1)="/" then
muluz=left(muluz,len(muluz)-1)
end if
%>
<%
weburl=replace(rs("kaozhan_url"),"\","/")
weburl=trim(weburl)
weburl3=weburl
if lcase(left(weburl,7))<>"http://" then
weburl="http://"&weburl
end if
fin_posaa=-123
for iiaappss=8 to len(weburl)
if mid(weburl,iiaappss,1)="/" then
fin_posaa=iiaappss
exit for
end if
next
if fin_posaa<>-123 then
weburl2=mid(weburl,1,fin_posaa-1)
webpagef=mid(weburl,fin_posaa,len(weburl)-fin_posaa+1)
else
webpagef="/"
weburl2=weburl
end if
%>
<%
'===================a8a
call openconnhtm()
set rshtm=server.CreateObject("adodb.recordset")
rshtm.open "select * from ND_stutas",connhtm,1,1
xinm_id=rshtm("nd_x_now_xinm_id")
rshtm.close
set rshtm=nothing
call closeconnhtm()
'==================a8a
'=============a3a
call openconnhtm()
set rshtm2=server.CreateObject("adodb.recordset")
rshtm2.open "select count(*) from ND_htm_hrefs_cachec where is_htmed='1'",connhtm,1,1
if not rshtm2.eof then
have_htmedok_num=rshtm2(0)
end if
rshtm2.close
set rshtm2=nothing
set rshtm2=server.CreateObject("adodb.recordset")
rshtm2.open "select count(*) from ND_htm_hrefs_cachec",connhtm,1,1
if not rshtm2.eof then
now_htma_pos=rshtm2(0)
end if
rshtm2.close
set rshtm2=nothing
call closeconnhtm()
'=============a3a
'=============a3a1
call openconnhtm()
set rshtm2=server.CreateObject("adodb.recordset")
rshtm2.open "select count(*) from ND_htm_hrefs_cachec_piccss where is_htmed='1'",connhtm,1,1
if not rshtm2.eof then
have_htmedok_num2=rshtm2(0)
end if
rshtm2.close
set rshtm2=nothing
set rshtm2=server.CreateObject("adodb.recordset")
rshtm2.open "select count(*) from ND_htm_hrefs_cachec_piccss",connhtm,1,1
if not rshtm2.eof then
now_htma_pos2=rshtm2(0)
end if
rshtm2.close
set rshtm2=nothing
call closeconnhtm()
'=============a3a1
if (have_htmedok_num<>now_htma_pos or have_htmedok_num2<>now_htma_pos2) and cstr(xinm_id&"")=cstr(rs("id")) then
%>
<a href=# onclick="ks('D_kaozhan_by_conutiue.asp?bianma=<%=rs("bianma")%>&id=<%=rs("id")%>&url=<%=replace(replace(rs("kaozhan_url"),"?","$$1$$"),"&","$$2$$")%>&tofolder=<%=rs("to_forder")%>&wwws=<%=weburl2%>');"><strong><font color=#ff0000>继续上次拷站进度</font></strong></a> <br />
<a href=# onclick="ks('D_kaozhan.asp?bianma=<%=rs("bianma")%>&id=<%=rs("id")%>&url=<%=replace(replace(rs("kaozhan_url"),"?","$$1$$"),"&","$$2$$")%>&tofolder=<%=rs("to_forder")%>&wwws=<%=weburl2%>');">重新开始拷站</a> <br />
<%else%>
<a href=# onclick="ks('D_kaozhan.asp?bianma=<%=rs("bianma")%>&id=<%=rs("id")%>&url=<%=replace(replace(rs("kaozhan_url"),"?","$$1$$"),"&","$$2$$")%>&tofolder=<%=rs("to_forder")%>&wwws=<%=weburl2%>');">开始拷站</a> <br />
<%
end if
%>
<%if cstr(rs("index_htmpage_set")&"")<>"" then%>
<a href="../../<%=ttahtml%>/<%=muluz%><%=rs("index_htmpage_set")%>" target="_blank"><strong><font color=#0000ff>浏览拷来的页</font></strong></a> <br />
<%end if%>
<a href="D_Admin_ItemFilterAdd.asp?id=<%=rs("id")%>">添加拷站过滤器</a> <br />
<a href="D_Admin_ItemFilters.asp?id=<%=rs("id")%>&firstrun=1">管理拷站过滤器</a> <br />
<a href=# onclick="delact('<%=rs("id")%>');">删除此项目</a></td>
</tr>
<%
Rs.movenext
next
else
%>
<tr><td colspan="6" class=maintext align="center"><font color="#FF0000"><strong>没有内容……</strong></font></td></tr>
<%end if
Rs.close
set Rs=nothing
%>
<tr>
<td colspan="6" align="center" height="27" bgcolor="#FFFFFF"><%call showpage(strFileName,totalnumber,MaxPerPage,true,true,"个",CurrentPage)%></td>
</tr>
</table>
</div>
<script language=javascript>
AJAXfade(1,'l_list')
</script>
<%
AJAXcloseLoader()
%>